home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / LSEEK.ASM < prev    next >
Assembly Source File  |  1986-10-20  |  444b  |  28 lines
  1. include compiler.inc
  2.     ttl    LSEEK, 1.05, 10-20-86 jwk
  3.  
  4. ;low-level seek - long lseek(handle, offsetL, base);
  5.  
  6.     dseg
  7.     exterr
  8.  
  9.     cseg
  10.     procdef    lseek, <<handle, word>, <offlo, word>, <offhi, word>, <base, byte>>
  11.  
  12.     mov    bx,handle
  13.     mov    cx,offhi
  14.     mov    dx,offlo
  15.     mov    al,base
  16.     mov    ah,42h
  17.     int    21h
  18.     jnc    ex
  19.     moverr    ax        ;if error save it
  20.     mov    ax,-1        ;and return -1L
  21.     mov    dx,ax
  22. ex:
  23.     pret            ;else return DOS value
  24.  
  25.     pend    lseek
  26.  
  27.     finish
  28.